﻿<!--#include file="../inc/common.asp" -->
<!--#include file="waputil.asp" -->
<%
  response.contentType="text/vnd.wap.wml"
  'response.contentType="text/html"
  response.charset=DEFAULT_CHARSET
  response.buffer = true  

  'on error resume next

%>
<?xml version="1.0" encoding="<%=DEFAULT_CHARSET%>"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<card title="Blog列表" newcontext="false" ordered="true">
<p align="left">
<%
  dim misslog, blogs, i, count
  set misslog = new MLHostClass
  misslog.load()
  blogs = misslog.getBlogs()
  count = 0
  if isArray(blogs) then
    count = ubound(blogs)
  end if
  if count>0 then
    for i=0 to count-1      
%>
<%=i+1%>.<a href="list.asp?blog_id=<%=blogs(i).blogId%>"><%=HTML2WML(blogs(i).blogTitle)%></a>&nbsp;-<%=HTML2WML(blogs(i).blogOwnerName)%><br/>
<%
    next
  end if
  set misslog = nothing
%>
<a href="index.asp">[返回站点首页]</a>
</p>
<%
  writeBlogOptions
%>
</card>
</wml>
<%  
  closeDB()
%>